home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tphide.zip / HIDDEN.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-04  |  503b  |  24 lines
  1. program Hidden ;
  2.  
  3. { Lists hidden files or subdirectories in the current directory }
  4.  
  5. uses Dos ;
  6.  
  7. var
  8.     THE_FILE : SEARCHREC ;
  9.  
  10. begin
  11.     writeln ('_____ Hidden Files _____ Andy Moore _____') ;
  12.     writeln ;
  13.     FindFirst('*.*',ANYFILE,THE_FILE) ;
  14.     while DosError = 0 do
  15.         begin
  16.             if (THE_FILE.ATTR and DOS.HIDDEN) <> 0 then
  17.                 begin
  18.                     write(THE_FILE.NAME) ;
  19.                     if (THE_FILE.ATTR and DOS.DIRECTORY) <> 0 then write('\') ;
  20.                     writeln ;
  21.                 end ;
  22.             FindNext(THE_FILE) ;
  23.         end ;
  24. end.